# DATA MASTER FILE .R
rm(list=ls())

(WD <- getwd())
if (!is.null(WD)) setwd(WD)

source("table_1_and_figure_1.R")
source("figure_1_top.R")
source("figure_2_and_table_b1.R")
source("table_2_bottom.R")
source("figure_3_1.R")
source("figure_b1_1.R")
source("figure_b1_2.R")
source("table_b2.R")
source("figure_b2.R")
source("table_b4.R")
source("table_b5.R")
source("table_b6.R")
source("table_d1.R")
source("table_g1.R")
source("table_b3.R")